home *** CD-ROM | disk | FTP | other *** search
/ Clinical Endocrinology / Clinical Endocrinology.iso / mac / 00000000 / QUIT.DIR / 00010_Script_10 < prev   
Text File  |  1995-11-09  |  588b  |  31 lines
  1. on cancelButtScript
  2.   
  3.   put the pathname & the movie into childWindow
  4.   
  5.   tell the stage
  6.     close window childWindow
  7.   end tell
  8.   
  9.   
  10. end cancelButtScript
  11. ---------------------------------------------------
  12. on quittingScript
  13.   
  14.   global blackOutXObj, oldMonitorSetting
  15.   
  16.   if the machineType <> 256 then
  17.     set the colorDepth to oldMonitorSetting
  18.     blackOutXObj(mDispose)
  19.   end if
  20.   tell the stage
  21.     
  22.     repeat with i = 1 to 48
  23.       set the visibility of sprite i to false
  24.     end repeat
  25.     updateStage
  26.   end tell
  27.   
  28.   quit
  29.   
  30. end quittingScript
  31.